home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / mus / edit / sfx_bin40m.lha / sfx-bin / Install-SFXbin next >
Text File  |  1996-03-15  |  5KB  |  164 lines
  1. ; Install-SFXbin Start --------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFXbin (02.12.1995)
  4. ;
  5. ; SoundFX bin Installscript
  6. ; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  11.  
  12. (IF (= @LANGUAGE "english")
  13. (
  14.     (SET #bad-kick            "SoundFX requires at least Kickstart 2.04 !")
  15.     (SET #welcome-messy     "\n\nWelcome to the installation of SoundFX !")
  16.     (SET #choose-dest        "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
  17.     (SET #choose-dest-help    "Here you can choose the place on your HD, were SFX should be installed")
  18.     (SET #dest-require        "\n\nPlease be shure, that you have on your HD at least 1.2 Mb free !")
  19.     (SET #copy-loader        "copying loadermoduls ...")
  20.     (SET #copy-operators    "copying operatormoduls ...")
  21.     (SET #copy-player        "copying playermoduls ...")
  22.     (SET #copy-rexx            "copying arexxscripts ...")
  23.     (SET #copy-saver        "copying savermoduls ...")
  24.     (SET #copy-executable    "copying executable ...")
  25.     (SET #copy-help            "The respective files will copied to your HD.")
  26.     (SET #exit-messy        "\n\nSFX is successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
  27. ))
  28. (IF (= @LANGUAGE "deutsch")
  29. (
  30.     (SET #bad-kick            "SoundFX benötigt mindestens Kickstart 2.04 !")
  31.     (SET #welcome-messy        "\n\nWillkommen zur Installation von SoundFX !")
  32.     (SET #choose-dest        "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
  33.     (SET #choose-dest-help    "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  34.     (SET #dest-require        "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
  35.     (SET #copy-loader        "kopiere Loader-Module ...")
  36.     (SET #copy-operators    "kopiere Operator-Module ...")
  37.     (SET #copy-player        "kopiere Player-Module ...")
  38.     (SET #copy-rexx            "kopiere ARexx-Scripts ...")
  39.     (SET #copy-saver        "kopiere Saver-Module ...")
  40.     (SET #copy-executable    "kopiere Executable ...")
  41.     (SET #copy-help            "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  42.     (SET #exit-messy        "\n\nSFX konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  43. ))
  44.  
  45. ; check kick version ----------------------------------------------------------------------------------------
  46.  
  47. (if (< (/ (getversion) 65536) 37)
  48.     (abort #bad-kick)
  49. )
  50.  
  51. ; los geht`s ------------------------------------------------------------------------------------------------
  52.  
  53. (COMPLETE 0)
  54. (MESSAGE #welcome-messy)
  55.  
  56. (SET @default-dest
  57.     (ASKDIR
  58.         (PROMPT #choose-dest)
  59.         (HELP #choose-dest-help)
  60.         (DEFAULT @default-dest)
  61.     )
  62. )
  63. (MESSAGE #dest-require)
  64. (COMPLETE 5)
  65. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  66. (SET @default-dest (TACKON @default-dest "SFX"))
  67. (SET sfx-dest @default-dest)
  68. (IF (= (EXISTS sfx-dest) 0)
  69.     (MAKEDIR sfx-dest (INFOS))
  70. )
  71.  
  72. ; Loader ----------------------------------------------------------------------------------------------------
  73. (COMPLETE 10)
  74. (SET sfxsub-dest (TACKON sfx-dest "_loader"))
  75. (IF (= (EXISTS sfxsub-dest) 0)
  76.     (MAKEDIR sfxsub-dest)
  77. )
  78. (COMPLETE 12)
  79. (COPYFILES
  80.     (PROMPT #copy-loader)
  81.     (HELP #copy-help)
  82.     (SOURCE "_loader/")
  83.     (DEST sfxsub-dest)
  84.     (ALL)
  85. )
  86.  
  87. ; Operators -------------------------------------------------------------------------------------------------
  88. (COMPLETE 25)
  89. (SET sfxsub-dest (TACKON sfx-dest "_operators"))
  90. (IF (= (EXISTS sfxsub-dest) 0)
  91.     (MAKEDIR sfxsub-dest)
  92. )
  93. (COMPLETE 27)
  94. (COPYFILES
  95.     (PROMPT #copy-operators)
  96.     (HELP #copy-help)
  97.     (SOURCE "_operators/")
  98.     (DEST sfxsub-dest)
  99.     (ALL)
  100. )
  101.  
  102. ; Player ----------------------------------------------------------------------------------------------------
  103. (COMPLETE 50)
  104. (SET sfxsub-dest (TACKON sfx-dest "_player"))
  105. (IF (= (EXISTS sfxsub-dest) 0)
  106.     (MAKEDIR sfxsub-dest)
  107. )
  108. (COMPLETE 52)
  109. (COPYFILES
  110.     (PROMPT #copy-player)
  111.     (HELP #copy-help)
  112.     (SOURCE "_player/")
  113.     (DEST sfxsub-dest)
  114.     (ALL)
  115. )
  116.  
  117. ; Rexx ------------------------------------------------------------------------------------------------------
  118. (COMPLETE 60)
  119. (SET sfxsub-dest (TACKON sfx-dest "_rexx"))
  120. (IF (= (EXISTS sfxsub-dest) 0)
  121.     (MAKEDIR sfxsub-dest)
  122. )
  123. (COMPLETE 62)
  124. (COPYFILES
  125.     (PROMPT #copy-rexx)
  126.     (HELP #copy-help)
  127.     (SOURCE "_rexx/")
  128.     (DEST sfxsub-dest)
  129.     (ALL)
  130. )
  131.  
  132. ; Saver -----------------------------------------------------------------------------------------------------
  133. (COMPLETE 70)
  134. (SET sfxsub-dest (TACKON sfx-dest "_saver"))
  135. (IF (= (EXISTS sfxsub-dest) 0)
  136.     (MAKEDIR sfxsub-dest)
  137. )
  138. (COMPLETE 72)
  139. (COPYFILES
  140.     (PROMPT #copy-saver)
  141.     (HELP #copy-help)
  142.     (SOURCE "_saver/")
  143.     (DEST sfxsub-dest)
  144.     (ALL)
  145. )
  146.  
  147. ; SFX -------------------------------------------------------------------------------------------------------
  148. (COMPLETE 80)
  149. (COPYFILES
  150.     (PROMPT #copy-executable)
  151.     (HELP #copy-help)
  152.     (SOURCE "sfx")
  153.     (DEST sfx-dest)
  154.     (NEWNAME "SoundFX")
  155. )
  156.  
  157. ; Fertig ----------------------------------------------------------------------------------------------------
  158. (COMPLETE 99)
  159. (MESSAGE #exit-messy)
  160. (COMPLETE 100)
  161.  
  162. (EXIT (QUIET))
  163. ; Install-SFXbin Ende ---------------------------------------------------------------------------------------
  164.